home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / clusgame.dxr / 00004_Init.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  2.8 KB  |  46 lines
  1. on exitFrame
  2.   global posV, posH, actdir, lines, tempdir, boing, patina
  3.   sound stop 2
  4.   set the visible of sprite 4 to 1
  5.   set the visible of sprite 7 to 0
  6.   set the visible of sprite 5 to 0
  7.   set the visible of sprite 6 to 0
  8.   set the visible of sprite 8 to 0
  9.   set the puppet of sprite 10 to 1
  10.   set the puppet of sprite 11 to 1
  11.   set the visible of sprite 13 to 0
  12.   set the visible of sprite 14 to 0
  13.   set the visible of sprite 15 to 0
  14.   set the visible of sprite 16 to 0
  15.   set the visible of sprite 17 to 0
  16.   set line1 to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  17.   set line2 to list(0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0)
  18.   set line3 to list(0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  19.   set line4 to list(0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  20.   set line5 to list(0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  21.   set line6 to list(0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0)
  22.   set line7 to list(0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0)
  23.   set line8 to list(0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0)
  24.   set line9 to list(0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  25.   set line10 to list(0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0)
  26.   set line11 to list(0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 2, 10, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0)
  27.   set line12 to list(0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0)
  28.   set line13 to list(0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  29.   set line14 to list(0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0)
  30.   set line15 to list(0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0)
  31.   set line16 to list(0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0)
  32.   set line17 to list(0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  33.   set line18 to list(0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  34.   set line19 to list(0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0)
  35.   set line20 to list(0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0)
  36.   set line21 to list(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
  37.   set lines to list(line1, line2, line3, line4, line5, line6, line7, line8, line9, line10, line11, line12, line13, line14, line15, line16, line17, line18, line19, line20, line21)
  38.   set posV to 2
  39.   set posH to 2
  40.   set actdir to 123
  41.   set tempdir to 123
  42.   set boing to 0
  43.   set patina to 0
  44.   startTimer()
  45. end
  46.